gusucode.com > 依悠ASP广告管理系统 v2.1 > 依悠ASP广告管理系统 v2.1\code\AD_Index.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = "AD_Chk.asp" -->
<!--#include file = "AD_Class.asp"-->
<%
'===================================================================================
'依悠广告管理系统 V2.1 使用帮助
'
'帮助你把网站上的所有广告按照广告大小或位置进行分类管理，然后用本系统分配的固定Scrip代码调用设置广告,获取代码请点广告管理的预览。
'
'安装说明:
'
'1. 需要支持ASP和Access数据库的空间。
'
'2. 管理员登陆页面:index.asp,用户名为:admin，密码：admin,请安装后立即修改！
'
'3. 数据库连接地址:AD_Conn.asp
'
'4. 发现任何问题、缺陷或者有必要增加些功能请通知作者，作者会尽力改进，谢谢。
'
'5. 本软件系免费程序,提供给个人免费使用，如果用于商业用途请酌情付费支持，请不要修改作者版权。
'
'6. 如建设网站中遇到任何问题可在论坛发问，必定回复。
'
'作者：双鱼 论坛：http://www.yiuu.net QQ:125047083 E-MAIL:otutu@126.com
'
' 2008年5月8日
'==================================================================================
Dim T
Sub head
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
<title><%=T%> - 管理页面 - <%=Ver%></title>
<link href="images/style.css" type="text/css" rel="stylesheet" />
</head>
<body>
<div id="content">
<div id="menu">
<ul>
<li><b><%=Session("a_user")%></b> </li>
<li><a href="Index.asp?Menu=Out">退出</a></li>
<li><a href="?Menu=ADadd">添加广告</a></li>
<li><a href="?Menu=list">广告管理</a></li>
<li><a href="?Menu=ADclass">分类管理</a></li>
<li><a href="?Menu=MA">修改密码</a></li>
<li><a href="?Menu=help">帮助</a></li>
<li><a href="?Menu=S">搜索</a></li>
<li><a href="?Set=Config">设置</a></li>
<li><a href="?Menu=UpLoadF">文件上传</a></li>
<li><a href="http://www.yiuu.net/" target="_blank">问题反馈</a></li>
</ul>
</div>
<%
End Sub
Select Case Menu
Case "UpLoad"
T = "依悠文件上传"
Head
Upload
Case "UpLoadF"
T = "依悠文件上传"
Head
UploadF
flist
case "S"
T = "搜索广告"
head
S
list
case "Search"
T = "搜索结果"
head
S
search
case ""
If Request.QueryString("Set") = "" Then
T = "广告管理"
head
list
End If
case "list"
T = "广告管理"
head
list
case "liste"
T = "广告管理"
head
liste
case "ADadd"
T = "添加广告"
head
Adadd
case "ADedit"
T = "广告编辑"
head
ADedit
case "del"
Rs.open "select * from "&sqlqname&"_ad where a_id="&ID,conn,1,3
Rs.delete
Rs.update
Rs.close
Response.Write "<script>alert('删除成功');document.location.href=""AD_Index.asp"";</script>"
case "fdel"
Rs.open "select * from "&sqlqname&"_file where f_id="&ID,conn,1,3
FDel(Rs("f_path"))
Rs.delete
Rs.update
Rs.close
Response.Write "<script>alert('删除成功');document.location.href=""AD_Index.asp?Menu=UpLoadF"";</script>"
case "classdel"
Rs.open "select * from "&sqlqname&"_class where c_id="&ID,conn,1,3
If Not Rs.eof Then Rs.delete
Rs.update
Rs.close
Rs.open "select * from "&sqlqname&"_class where c_tid="&ID,conn,1,3
If Not Rs.eof Then Rs.delete
Rs.update
Rs.close
Rs.open "select * from "&sqlqname&"_ad where a_class="&ID,conn,1,3
If Not Rs.eof Then Rs.delete
Rs.update
Rs.close
Response.Write "<script>alert('删除成功');document.location.href=""AD_Index.asp?Menu=ADclass"";</script>"
case "ADadde"
Rs.open "select * from "&sqlqname&"_ad",conn,1,3
Rs.addnew
Rs("a_title") = title
Rs("a_class") = classn
Rs("a_content") = content
Rs("a_intime") = intime
If OutTime <> null or OutTime <> "" Then
Rs("a_outtime") = OutTime
End If
Rs("a_width") = width
Rs("a_height") = height
Rs("a_beiz") = beiz
Rs("a_js") = AJS
ID = Rs("a_id")
If AJS = 1 Then
HTM Rs("a_id"),Content,Show,OutTime
HJS Rs("a_id"),Content,Show,OutTime
End If
Rs.update
Rs.close
Response.Write "<script>alert('添加成功');history.go(-1);</script>"
case "ADclasse"
Rs.open "select * from "&sqlqname&"_class",conn,1,3
Rs.addnew
Rs("c_name") = cname
Rs("c_tid") = tid
Rs.update
Rs.close
Response.Write "<script>alert('添加成功');document.location.href=""AD_Index.asp?Menu=ADclass"";</script>"
case "ADedite"
If ID > 0 Then
Rs.Open "select * from "&sqlqname&"_ad where a_id="&ID,Conn,1,3
If Not Rs.eof Then
Rs("a_title") = title
Rs("a_content") = content
Rs("a_class") = classn
Rs("a_intime") = intime
If OutTime <> null or OutTime <> "" Then
Rs("a_outtime") = OutTime
Else
Rs("a_outtime") = null
End If
Rs("a_width") = width
Rs("a_height") = height
Rs("a_beiz") = beiz
Rs("a_js") = AJS
Rs.update
Rs.close
If AJS = 1 Then
If Content <> "" Then
ACONTENT = Replace(Content,"""","""""")
ACONTENT = Replace(ACONTENT,chr(10),"")
ACONTENT = Replace(ACONTENT,chr(13),"")
End If
If Show <> "" Then
ShowN = Replace(Show,"""","""""")
End If
HTML = HTML&"Case "&ID&chr(10)
HTML = HTML&"outtime = """&OutTime&""""&chr(10)
HTML = HTML&"If outtime <> """" Then "&chr(10)
HTML = HTML&"If DateDiff(""d"",now(),outtime) < 0 Then"&chr(10)
HTML = HTML&"Response.Write("""&ShowN&""")"&chr(10)
HTML = HTML&"Else"&chr(10)
HTML = HTML&"Response.Write("""&AContent&""")"&chr(10)
HTML = HTML&"End If"&chr(10)
HTML = HTML&"Else"&chr(10)
HTML = HTML&"Response.Write("""&AContent&""")"&chr(10)
HTML = HTML&"End If"&chr(10)
If CHF(ASPPath) = True Then
Files = OF(ASPPath)
CELSE = Cut(Files,"'"&ID,"'"&ID&"+")
If CELSE <> "" Then
HTML = Replace(Files,CELSE,chr(10)&HTML)
Else
HTML = "'"&ID&chr(10)&HTML
HTML = HTML&"'"&ID&"+"&chr(10)
HTML = HTML&"Case Else"&chr(10)
HTML = Replace(Files,"Case Else",HTML)
End If
Else
CR ASPPath,"<"&"%"&chr(10)&"Select Case Request.QueryString(""ID"")"&chr(10)&"Case Else"&chr(10)&"End Select"&chr(10)&"%"&">"
Files = OF(ASPPath)
HTML = "'"&ID&chr(10)&HTML
HTML = HTML&"'"&ID&"+"&chr(10)
HTML = HTML&"Case Else"&chr(10)
HTML = Replace(Files,"Case Else",HTML)
End If
CR ASPPath,HTML
HJS ID,Content,Show,OutTime
Else
FDel(JSPath&ID&".js")
Files = OF(ASPPath)
CELSE = Cut(Files,"'"&ID,"'"&ID&"+")
Files = Replace(Files,CELSE,"")
Files = Replace(Files,"'"&ID&"+","")
Files = Replace(Files,"'"&ID,"")
CR ASPPath,Files
End If
Response.Write "<script>alert('更新成功');document.location.href=""AD_Index.asp"";</script>"
End If
End If
case "dy"
T = "广告预览"
head
list
dy
case "help"
T = "使用帮助"
head
help
case "MA"
T = "修改密码"
head
MA
case "MAsave"
MAsave
case "ADclass"
T = "分类管理"
head
ADclass
ADclassl
case "ADclassc"
T = "分类管理"
head
ADclassc
ADclassl
case "ADclassce"
If ID > 0 Then
Rs.Open "select * from "&sqlqname&"_class where c_id="&ID,Conn,1,3
If Not Rs.eof Then
Rs("c_tid") = tid
Rs("c_name") = cname
End If
Rs.update
Rs.close
Response.Write "<script>alert('更新成功');history.go(-1);</script>"
End If
Case "ASJS"
Rs.Open "select * from "&sqlqname&"_ad",conn,1,3
Do while Not Rs.Eof
ID = Rs("a_id")
Content = Rs("a_Content")
ShowN = Show
OutTime = Rs("a_OutTime")
Rs("a_js") = 1
If Content <> "" Then
Content = Replace(Content,"""","""""")
Content = Replace(Content,chr(10),"")
Content = Replace(Content,chr(13),"")
End If
If ShowN <> "" Then
ShowN = Replace(ShowN,"""","""""")
End If
If CHF(ASPPath) = True Then
Files = OF(ASPPath)
Else
CR ASPPath,"<"&"%"&chr(10)&"Select Case Request.QueryString(""ID"")"&chr(10)&"Case Else"&chr(10)&"End Select"&chr(10)&"%"&">"
Files = OF(ASPPath)
End If
HTML = "'"&ID&chr(10)
HTML = HTML&"Case "&ID&chr(10)
HTML = HTML&"outtime = """&OutTime&""""&chr(10)
HTML = HTML&"If outtime <> """" Then "&chr(10)
HTML = HTML&"If DateDiff(""d"",now(),outtime) < 0 Then"&chr(10)
HTML = HTML&"Response.Write("""&ShowN&""")"&chr(10)
HTML = HTML&"Else"&chr(10)
HTML = HTML&"Response.Write("""&Content&""")"&chr(10)
HTML = HTML&"End If"&chr(10)
HTML = HTML&"Else"&chr(10)
HTML = HTML&"Response.Write("""&Content&""")"&chr(10)
HTML = HTML&"End If"&chr(10)
HTML = HTML&"'"&ID&"+"&chr(10)
HTML = HTML&"Case Else"
HTML = Replace(Files,"Case Else",HTML)
CR ASPPath,HTML
Content = Replace(Content,"\","\\")
Content = Replace(Content,"/","\/")
Content = Replace(Content,"""","\""")
Content = Replace(Content,"'","\'")
Content = Replace(Content,"script","scr""+""ipt")
Con = Split(Content,chr(13)&chr(10))
Content = ""
For i = 0 To UBound(con)
Content = Content&"document.writeln("&chr(34)&Replace(Con(i),chr(13),"")&chr(34)&");"&chr(10)
Next
Files = OF("images/Template.inc")
Files = Replace(Files,"[$content$]",Content)
If IsNull(OutTime) Then
Files = Replace(Files,"[$date$]","")
Else
Files = Replace(Files,"[$date$]",OutTime)
End If
ShowN = Replace(ShowN,"\","\\")
ShowN = Replace(ShowN,"/","\/")
ShowN = Replace(ShowN,"""","\""")
ShowN = Replace(ShowN,"'","\'")
Con = Split(ShowN,chr(13)&chr(10))
Content = ""
For i = 0 To UBound(Con)
Content = Content&"document.writeln("&chr(34)&Replace(Con(i),chr(13),"")&chr(34)&");"&chr(10)
Next
Files = Replace(Files,"[$show$]",Content)
CR JSPath&ID&".JS",Files
Rs.Update
Rs.MoveNext
Loop
Rs.Close
Response.Write "<script>alert('生成成功');document.location.href=""AD_Index.asp"";</script>"
Case "AQJS"
Rs.Open "select * from "&sqlqname&"_ad",conn,1,3
Rs.MoveLast
Do While Not Rs.Bof
Rs("a_js") = 0
Files = OF(ASPPath)
CELSE = Cut(Files,"'"&Rs("a_id"),"'"&Rs("a_id")&"+")
Files = Replace(Files,CELSE,"")
Files = Replace(Files,"'"&Rs("a_id")&"+","")
Files = Replace(Files,"'"&Rs("a_id"),"")
CR ASPPath,Files
FDel(JSPath&Rs("a_id")&".JS")
Rs.Update
Rs.MovePrevious
Loop
Rs.Close
Response.Write "<script>alert('取消成功');document.location.href=""AD_Index.asp"";</script>"
Case "QJS"
Rs.open "select * from "&sqlqname&"_ad where a_id="&ID,conn,1,3
If Not Rs.eof Then
Rs("a_js") = 0
Rs.Update
Files = OF(ASPPath)
CELSE = Cut(Files,"'"&Rs("a_id"),"'"&Rs("a_id")&"+")
Files = Replace(Files,CELSE,"")
Files = Replace(Files,"'"&Rs("a_id")&"+","")
Files = Replace(Files,"'"&Rs("a_id"),"")
CR ASPPath,Files
FDel(JSPath&Rs("a_id")&".JS")
End If
Rs.Close
Response.Write "<script>alert('取消成功');document.location.href=""AD_Index.asp"";</script>"
Case "SJS"
Rs.Open "select * from "&sqlqname&"_ad where a_id="&ID,conn,1,3
If Not Rs.eof Then
HTM ID,Rs("a_Content"),Show,Rs("a_OutTime")
HJS ID,Rs("a_Content"),Show,Rs("a_OutTime")
End If
Rs("a_js") = 1
Rs.Update
Rs.Close
Response.Write "<script>alert('生成成功');document.location.href=""AD_Index.asp"";</script>"
Case "ADel"
Rs.open "select * from "&sqlqname&"_ad",conn,1,3
Do While Not Rs.eof
FDel(JSPath&Rs("a_id")&".js")
Rs.Delete
Rs.Update
Rs.MoveNext
Loop
Rs.close
FDel(ASPPath)
Response.Write "<script>alert('删除成功');document.location.href=""AD_Index.asp"";</script>"
End Select
%>
</div>
</body>
</html>
<%
Set Rs = Nothing
conn.close:Set conn = Nothing
%>